home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…ibrary 1991 & 1992 Winter / The Apple Reference & Presentations Library CD Apple Partner Edition Winter 91-92.7z / Image.iso / mac / 4-QuickTime Intro Materials / QT Saved-Disabled Apps / Canvas 3.0 App / Canvas Tools / Separations / Separations.rsrc / hd11_1103 < prev    next >
Text File  |  1991-08-12  |  894b  |  58 lines
  1. %%BeginProcSet: Adobe_customcolor 0 0
  2. % Custom Color Operators
  3. % Version 1.0 5/9/1988
  4. % Copyright (C) 1987, 1988
  5. % Adobe Systems Incorporated
  6. % All Rights Reserved
  7. currentpacking true setpacking
  8. userdict /Adobe_customcolor 5 dict dup begin put
  9. /initialize            % - initialize -
  10. {
  11. /setcustomcolor where
  12.     {
  13.     pop
  14.     }
  15.     {
  16.     Adobe_customcolor begin
  17.     Adobe_customcolor
  18.         {
  19.         dup xcheck
  20.             {
  21.             bind
  22.             } if
  23.         pop pop
  24.         } forall
  25.     end
  26.     Adobe_customcolor begin
  27.     } ifelse
  28. } def
  29. /terminate            % - terminate -
  30. {
  31. currentdict Adobe_customcolor eq
  32.     {
  33.     end
  34.     } if
  35. } def
  36. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  37. {
  38. 5 packedarray
  39. }  def
  40. /setcustomcolor        % object tint setcustomcolor -
  41. {
  42. exch
  43. aload pop pop
  44. 4
  45.     {
  46.     4 index mul 4 1 roll
  47.     } repeat
  48. 5 -1 roll pop
  49. setcmykcolor
  50. } def
  51. /setoverprint        % boolean setoverprint -
  52. {
  53. pop
  54. } def
  55. currentdict readonly pop end
  56. setpacking
  57. %%EndProcSet
  58.